home *** CD-ROM | disk | FTP | other *** search
/ Java 1996 August / Java - Summer 1996.iso / extras / lsperl < prev    next >
Text File  |  1996-02-25  |  1KB  |  56 lines
  1. #!/usr/local/bin/perl4.036 
  2. # 
  3. # Copyright Martin Leisner   leisner@sdsp.mc.xerox.com
  4. # $Id$
  5.  
  6. $directory=".";
  7. $print_directory=0;
  8. $format_string="%3s %2s %-10s%8s %s/%s\n";
  9. while(<>) {
  10.     chop;
  11.     if(length == 0) {
  12.         next;    # nothing to process
  13.     }
  14.     @line = split;
  15.     if($#line == -1 ) {
  16.         # error ? newline?
  17.         next;
  18.     }
  19.  
  20.     if($#line == 0) {
  21.         chop;
  22.         $directory = $_;
  23.         $print_directory=0;
  24.         next;
  25.     } elsif($#line == 1) {
  26.         # skip this line 
  27.         next;
  28.     } elsif(substr($_,0,1) eq "d") {
  29.     #    print "skipping directory\n";
  30.         next;
  31.     } elsif(substr($_,0,1) eq "l") {
  32.         # ignore links? 
  33.         next
  34.     }
  35.     
  36.     if($print_directory == 0) {
  37.         printf "\n%s\n", $directory;
  38.         $print_directory=1;
  39.     }
  40.  
  41.     
  42.     if($#line == 8) {
  43.         # have group?    
  44.         printf $format_string,
  45.             $line[5], $line[6], $line[7], $line[4], 
  46.                 $directory, $line[8];
  47.     } elsif($#line == 7) {
  48.         # no group
  49.         printf $format_string, $line[4], $line[5], $line[6],
  50.                 $line[3], $directory,  $line[7];
  51.     } else {
  52.         printf  "line wrong number of elements = %d\n", $#line;
  53.         die;
  54.     }
  55. }
  56.